100 REM   A=64.1:SYS49152:PRINT A
110 REM   WHERE A IS THE FIRST VARIABLE
120 REM   RESULT OF SQR WILL BE IN A
130 AD=49152:CH=0
140 FOR I=0 TO 122:READ X
150 POKE AD+I,X:CH=CH+X:NEXT
160 IF CH<>13691 THEN PRINT"ERROR IN DATA STATEMENTS":END
170 HI=INT((AD+107)/256)
180 POKE AD+59,HI:POKE AD+58,AD+107-HI*256
190 REM NEW TABLE ADDRESS FOR RELOCATED P
200 DATA 160,   3, 177,  45,  48,  98, 136, 177
210 DATA  45, 240,  92, 165,  45,  24, 105,   2
220 DATA 133, 170, 165,  46, 105,   0, 133, 171
230 DATA 160,   0, 132,  93, 132,  94, 132,  95
240 DATA 132,  96, 177, 170, 106, 176,   4, 162
250 DATA 128, 134,  93, 105,  64, 133,  92, 200
260 DATA 177, 170,   5,  93,  74,  74,  74,  74
270 DATA 170, 189, 107,  32, 133,  93, 169,   4
280 DATA 133, 172, 169,  92, 160,   0,  32, 162
290 DATA 187, 165, 170, 164, 171,  32,  15, 187
300 DATA 169,  92, 160,   0,  32, 103, 184, 198
310 DATA  97,  32, 199, 187, 198, 172, 208, 233
320 DATA 166, 170, 164, 171,  32, 212, 187,  96
330 DATA  76,  72, 178,   3,  11,  18,  25,  32
340 DATA  38,  44,  50,  58,  69,  79,  89,  98
350 DATA 107, 115, 123